home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Shareware / Multimedia / extrememov / extrememm2.6b3sharefull.exe / {app} / scripts / [TVTOME.COM] - (Import misc Episodes Info) @ eb1 21_FEB_2004.txt < prev    next >
Encoding:
Text File  |  2004-02-21  |  22.5 KB  |  968 lines
  1. -----------------------------------------------
  2. -            eXtreme Movie Manager            -
  3. -            MagicScript Technology           -
  4. -          2004 Alessio "AleTsg" Viti         -
  5. -----------------------------------------------
  6. - Web      : TVTOME.COM                       -
  7. - Author   : eb1                              -
  8. - Date     : 21/02/2004                       -
  9. - Comments : Import All Information available -
  10. - 21/02/2004 fixed: adjust to the new tvtome  -
  11. -                   layout + some fixes       -
  12. - 19/11/2003 modified: episode numbering      -
  13. - 12/11/2003 fixed: tvtome-layout changes     -
  14. - 13/05/2003 fixed: episode listing           -
  15. -            fixed: "pilot"-bug               -
  16. - 12/05/2003 search bug fixed                 -
  17. -            added ep.-number to title        -
  18. -----------------------------------------------
  19.  
  20. #MADEBY#=eb1
  21. #DATEBUILD#=21/02/2004
  22. #WEBSITE#=TVTOME.COM
  23. #NOTE#=Import some Episodes Info
  24. #SCRIPTQUALITY#=4
  25.  
  26. #WEBQUERY#=http://www.tvtome.com/tvtome/servlet/Search/?searchType=show&searchString=#MOVIE#
  27.  
  28.  
  29. #RIGHTPAGEFOUND#
  30. //skip this
  31.     #STARTREADWEB#
  32.     #PUT#=1#02#
  33.     #PUT#=0#01#
  34.     #CONDITIONRIGHTPAGE# #01#==#02#
  35. #ENDRIGHTPAGEFOUND#
  36.  
  37. #CREATEMOVIELIST#
  38.     #STARTREADWEB#
  39.     #GETTITLE#=#31#
  40.     #PUT#=0#20#
  41.     #PUT#=</table>#26#
  42.     #FINDLINE#=TV Tome - Search Results#32#    
  43.     #IF# #32# == #20#
  44.         #GOTO#=SKIPSEARCH
  45.     #ENDIF#
  46.  
  47.     #FINDLINE#=Show search for:#12##ONERROR#=*OK*
  48.  
  49.     :REPEAT23
  50.     #READNEXTLINE#
  51.     #READNEXTLINE#
  52.         #FIND#=<a href=#12#
  53.         #IF# #12# == #20#
  54.             #WRITETITLELIST#=Title: "#31#" was not found in the database
  55.             #WRITETITLELIST#=check http://www.tvtome.com/tvtome/servlet/ListShowsServlet/ for the correct title of your series 
  56.             #GOTO#=END2
  57.         #ENDIF#
  58.         #FIND#="#01#
  59.         #FIND#=">#02#
  60.         #TAKEWORD#=#03#,#01#,#02#
  61.         #COMPUTEVAR#=#02#+1
  62.         #FIND#=</a#33#
  63.         #TAKEWORD#=#36#,#02#,#33#
  64.         #CHECKVARIABLE#=#36#
  65.         #STARTSUBSTITUTETAGS#
  66.         #CLEARTAGS#
  67.         #STARTDELETETAGS#
  68.         #PUT#=/about/editor.shtml#28#
  69.         #IF# #03# == #28#
  70.             #WRITETITLELIST#=no results found --> please write correct name of the series (check www.imdb.com)
  71.             #GOTO#=END2
  72.         #ENDIF#
  73.     #IF# #36# <> #31#
  74.         #GOTO#=REPEAT23
  75.     #ENDIF#
  76.     
  77.     #STRING#=#04#=http://www.tvtome.com#03#
  78.     
  79.     #OPENNEWWEB#=#04#
  80.        :SKIPSEARCH
  81.        #STARTREADWEB#
  82.        //TITLE
  83.        #FINDLINE#=<TITLE>#12##ONERROR#=*OK*
  84.        #FIND#=>#01#
  85.        #FIND#= - TV Tome</TITLE>#02# #ONERROR#=*OK*
  86.        #TAKEWORD#=#41#,#01#,#02#
  87.        #CHECKVARIABLE#=#41#
  88.        #STARTSUBSTITUTETAGS#
  89.        #CLEARTAGS#
  90.        #STARTDELETETAGS#
  91.        #WRITETITLELIST#=#41#
  92.        #WRITETITLELIST#=----------------------
  93.               
  94.        //SHOW ID
  95.        #STARTREADWEB#
  96.        #FINDLINE#=showid-#12##ONERROR#=*OK*       
  97.        #FIND#=showid-#01#
  98.        #FIND#=-#01#
  99.        #FIND#=/#02#
  100.        #TAKEWORD#=#49#,#01#,#02#
  101.  
  102.        //RUNTIME
  103.        #STARTREADWEB#
  104.        #FINDLINE#=Running Time</td>#12##ONERROR#=*OK*
  105.        #FIND#=Running Time</td>#01#
  106.        #FIND#=class="row#01#
  107.        #FIND#=>#01#
  108.        #FIND#=<#02#
  109.        #TAKEWORD#=#44#,#01#,#02#
  110.        #CHECKVARIABLE#=#44#
  111.        #STARTSUBSTITUTETAGS#
  112.        #CLEARTAGS#
  113.        #STARTDELETETAGS#
  114.  
  115.        //COUNTRY
  116.        #STARTREADWEB#
  117.        #FINDLINE#=Country</td>#12##ONERROR#=*OK*
  118.        #FIND#=Country</td>#01#
  119.        #FIND#=class="row#01#
  120.        #FIND#=>#01#
  121.        #FIND#=<#02#
  122.        #TAKEWORD#=#45#,#01#,#02#
  123.        #CHECKVARIABLE#=#45#
  124.        #STARTSUBSTITUTETAGS#
  125.        #CLEARTAGS#
  126.        #STARTDELETETAGS#
  127.  
  128.        //Actors
  129.        #STARTREADWEB#
  130.        #FINDLINE#=Show Stars</#12##ONERROR#=*OK*
  131.        #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  132.  
  133.        #PUT#=0#09#
  134.        :REPEATACTOR1
  135.            #READNEXTLINE#
  136.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  137.            #IF# #10#<>#09#
  138.                #GOTO#=ENDCAST
  139.            #ENDIF#
  140.            #FIND#=>#01# #ONERROR#=*OK*
  141.            #FIND#=<#02# #ONERROR#=*OK*
  142.            #TAKEWORD#=#42#,#01#,#02#
  143.            #CHECKVARIABLE#=#42#
  144.            #STARTSUBSTITUTETAGS#
  145.            #CLEARTAGS#
  146.            #STARTDELETETAGS#
  147.  
  148.            #ADDACTOR#=#42#
  149.  
  150.            #COMPUTECURSOR#=+6
  151.            #PUTCURSOR#=#03#
  152.            #FIND#=<#05# #ONERROR#=*OK*
  153.            #TAKEWORD#=#06#,#03#,#05#
  154.            #CHECKVARIABLE#=#06#
  155.            #STARTSUBSTITUTETAGS#
  156.        #CLEARTAGS#
  157.            #STARTDELETETAGS#
  158.        #STRING#=#43#=#42# (#06#)
  159.            #TAKEACTOR#=#43#
  160.          #GOTO#=REPEATACTOR1
  161.        :ENDCAST
  162.  
  163.     #IF# #32# <> #20#
  164.         #RESTOREWEB#
  165.     #ENDIF#
  166.  
  167. //Episodes listing
  168.  
  169.     #STRING#=#05#=http://www.tvtome.com/tvtome/servlet/EpisodeGuideSummary/showid-#49#/season-all/
  170.     #OPENNEWWEB#=#05#
  171.        #FINDLINE#=class="seasontitle"#10##ONERROR#=*OK*
  172.        #FIND#=<b>#01#
  173.        #FIND#=>#01#
  174.        #FIND#=<#02#
  175.        #TAKEWORD#=#03#,#01#,#02#   //Season
  176.        #CHECKVARIABLE#=#03#
  177.        #STARTSUBSTITUTETAGS#
  178.        #CLEARTAGS#
  179.        #STARTDELETETAGS#
  180.        #WRITETITLELIST#=
  181.        #WRITETITLELIST#=#03#
  182.        #WRITETITLELIST#=---------------
  183.        #FINDLINE#=<a name="#10#
  184.        #FIND#=<a name="ep#14#
  185.        #FIND#=p#14#
  186.        #FIND#="#15#
  187.        #TAKEWORD#=#16#,#14#,#15#    //Episode Nr
  188.  
  189.        #FIND#=href="#06#      
  190.        #FIND#="#06#
  191.        #FIND#=">#07#
  192.        #FIND#=>#01#
  193.        #FIND#=<#02#
  194.        #TAKEWORD#=#03#,#01#,#02#    //Episode Name
  195.        #CHECKVARIABLE#=#03#
  196.        #STARTSUBSTITUTETAGS#
  197.        #CLEARTAGS#
  198.        #STARTDELETETAGS#
  199.        #TAKEWORD#=#08#,#06#,#07#
  200.        #STRING#=#09#=http://www.tvtome.com#08#
  201.        #WRITETITLELIST#=#09#    ---> #03# (#16#)
  202.  
  203.        :REPEAT1
  204.  
  205.        #FINDLINE#=<tr><td><hr></td></tr>#11##ONERROR#=*OK*
  206.        #IF# #11# <> #20#
  207.  
  208.            //Season
  209.            #FINDLINE#=<tr><td#14#
  210.            #TAKEWORD#=#27#,#20#,#20#
  211.            #FIND#=class="seasontitle"#10##ONERROR#=*OK*
  212.            #IF# #27# == #26#
  213.                #GOTO#=END1
  214.        #ENDIF#
  215.        #IF# #14# == #20#
  216.            #GOTO#=END1
  217.        #ENDIF#
  218.        #IF# #10# <> #20#
  219.            #FIND#=<b>#01#
  220.            #FIND#=>#01#
  221.            #FIND#=<#02#
  222.            #TAKEWORD#=#03#,#01#,#02#   //Season
  223.            #CHECKVARIABLE#=#03#
  224.            #STARTSUBSTITUTETAGS#
  225.            #CLEARTAGS#
  226.            #STARTDELETETAGS#
  227.            #WRITETITLELIST#= 
  228.            #WRITETITLELIST#=#03#
  229.            #WRITETITLELIST#=---------------
  230.            #FINDLINE#=<a name="#14#
  231.        #ENDIF#
  232.  
  233.        #IF# #11# <> #20#
  234.    
  235.        #FIND#=<a name="ep#14#
  236.        #FIND#=p#14#
  237.        #FIND#="#15#
  238.        #TAKEWORD#=#16#,#14#,#15#    //Episode Nr
  239.  
  240.        #FIND#=href="#06#      
  241.        #FIND#="#06#
  242.        #FIND#=">#07#
  243.        #FIND#=>#01#
  244.        #FIND#=<#02#
  245.        #TAKEWORD#=#03#,#01#,#02#    //Episode Name
  246.        #CHECKVARIABLE#=#03#
  247.        #STARTSUBSTITUTETAGS#
  248.        #CLEARTAGS#
  249.        #STARTDELETETAGS#
  250.        #TAKEWORD#=#08#,#06#,#07#
  251.        #STRING#=#09#=http://www.tvtome.com#08#
  252.        #WRITETITLELIST#=#09#    ---> #03# (#16#)
  253.        #ENDIF#
  254.        #IF# #11#<>#20#
  255.             #GOTO#=REPEAT1
  256.        #ENDIF#
  257.        :END1
  258.     #RESTOREWEB#
  259.     :END2
  260. #ENDCREATEMOVIELIST#
  261.  
  262. #MOVIETITLE#
  263.     #STARTREADWEB#
  264.     #FINDLINE#=<TITLE>#12##ONERROR#=*OK*
  265.     #FIND#=>#01#
  266.     #FIND#=:#01#
  267.     #FIND#= #01#
  268.     #FIND#= - TV Tome</TITLE>#02# #ONERROR#=*OK*
  269.     #TAKEWORD#=#41#,#01#,#02#
  270.     #CHECKVARIABLE#=#41#  // Episode-Title
  271.     #STARTSUBSTITUTETAGS#
  272.     #CLEARTAGS#
  273.     #STARTDELETETAGS#
  274.     
  275. // Episode Number (for ex. 9-14)
  276.  
  277.     #STRING#=#03#=http://www.tvtome.com/tvtome/servlet/EpisodeGuideServlet/showid-#49#/
  278.     #OPENNEWWEB#=#03#
  279.     #FINDLINE#=nowrap>Episode#12##ONERROR#=*OK*
  280.         :REPEATEP
  281.         #READNEXTLINE#
  282.             #FIND#=class="small">#01#
  283.             #IF# #01# == #20#
  284.                 #GOTO#=REPEATEP
  285.             #ENDIF#
  286.             #FIND#=class="small"> #01#
  287.             #FIND#= #01#
  288.             #FIND#=-#02#
  289.             #TAKEWORD#=#38#,#01#,#02#    // "Season number"
  290.             #CHECKVARIABLE#=#38#
  291.             #STARTSUBSTITUTETAGS#
  292.             #CLEARTAGS#
  293.             #STARTDELETETAGS#
  294.             #TAKESEASON#=#38#
  295.             
  296.             #FIND#=<#01#
  297.           
  298.         #TAKEWORD#=#39#,#02#,#01#    // "Episode number"
  299.             #CHECKVARIABLE#=#39#  
  300.             #STARTSUBSTITUTETAGS#
  301.             #CLEARTAGS#
  302.             #STARTDELETETAGS#
  303.             
  304.                     
  305.         #FIND#=href="/#01#
  306.         #FIND#=>#01#
  307.         #FIND#=</a>#02#
  308.         #TAKEWORD#=#37#,#01#,#02#    // check-title
  309.             #CHECKVARIABLE#=#37#  // Episode-Title
  310.             #STARTSUBSTITUTETAGS#
  311.             #CLEARTAGS#
  312.             #STARTDELETETAGS#
  313.         
  314.         #IF# #37# <> #41#
  315.             #GOTO#=REPEATEP
  316.         #ENDIF#
  317.      #RESTOREWEB#        
  318.  
  319.  
  320.             #PUT#=10#10#
  321.  
  322. // if Season Number < 10 then for ex. Season Number = 02 
  323.             #IF# #38# << #10#
  324.                 #STRING#=#38#=0#38#
  325.             #ENDIF#
  326.  
  327. // if Episode Number < 10 then for ex. Episode Number = 08             
  328.             #IF# #39# << #10#
  329.                 #STRING#=#39#=0#39#
  330.             #ENDIF#
  331.  
  332. // naming convention:  "Season"x"Episode". "Episode Title"
  333.  
  334.     #STRING#=#47#=#38#x#39#. #41#
  335.     
  336.     #TITLE#=#47# #ONERROR#=*ASK*
  337. #ENDMOVIETITLE#
  338.  
  339. #ACTORS#
  340. // Guest Stars in the Episode
  341.     #STARTREADWEB#
  342.     #FINDLINE#=<b>Guest Stars:</b>#12##ONERROR#=*STOP*
  343.     #STRING#=#47#=#NEWLINE# #NEWLINE# Guest Stars: #NEWLINE#
  344.     #TAKEACTOR#=#47#
  345.     #PUT#=0#09#
  346.        :REPEATACTOR2
  347.            #READNEXTLINE#
  348.            #READNEXTLINE#
  349.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  350.            #IF# #10#<>#09#
  351.                #GOTO#=ENDCAST2
  352.            #ENDIF#
  353.            #FIND#=href="#01#
  354.            #FIND#=>#01# #ONERROR#=*OK*
  355.            #FIND#=<#02# #ONERROR#=*OK*
  356.            #TAKEWORD#=#42#,#01#,#02#
  357.            #CHECKVARIABLE#=#42#
  358.            #CLEARTAGS#
  359.            #STARTSUBSTITUTETAGS#
  360.            #STARTDELETETAGS#
  361.            #ADDACTOR#=#42#
  362.  
  363.            #FIND#=>#03# #ONERROR#=*OK*
  364.            #FIND#=<#05# #ONERROR#=*OK*
  365.            #TAKEWORD#=#06#,#03#,#05#
  366.            #CHECKVARIABLE#=#06#
  367.            #CLEARTAGS#
  368.            #STARTSUBSTITUTETAGS#
  369.            #STARTDELETETAGS#
  370.          #STRING#=#43#=#42##06#
  371.            #TAKEACTOR#=#43#         
  372.            #GOTO#=REPEATACTOR2
  373.        :ENDCAST2
  374.  
  375.  
  376. #ENDACTORS#
  377.  
  378. #COMMENTS#
  379.     //Notes
  380.     #STARTREADWEB#
  381.  
  382.     #FINDLINE#=>Notes<#12##ONERROR#=*OK*
  383.     #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  384.     #PUT#=</td></tr>#13#
  385.     #PUT#=10#14#
  386.     #PUT#=0#09#
  387.     #READNEXTLINE#
  388.     #READNEXTLINE#
  389.     #TAKEWORDLEN#=#15#,#09#,#14#
  390.     #IF# #15# == #13#
  391.         #GOTO#=ENDNOTES
  392.     #ENDIF#
  393.     #IF# #15# <> #13#
  394.         #STARTREADWEB#
  395.         #FINDLINE#=>Notes<#12##ONERROR#=*OK*
  396.         #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  397.     #ENDIF#
  398.     #STRING#=#02#=Notes: #NEWLINE#----------------------------------#NEWLINE#
  399.     #TAKECOMMENTS#=#02#
  400.  
  401.        :REPEATNOTES
  402.            #READNEXTLINE#
  403.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  404.            #IF# #10#<>#09#
  405.                #GOTO#=ENDNOTES1
  406.            #ENDIF#
  407.            #TAKEWORD#=#01#,#09#,#09#
  408.            #CHECKVARIABLE#=#01#
  409.            #STARTSUBSTITUTETAGS#
  410.            #CLEARTAGS#
  411.            #STARTDELETETAGS#
  412.            #STRING#=#02#=#01# #NEWLINE#
  413.            #TAKECOMMENTS#=#02#
  414.     #GOTO#=REPEATNOTES
  415.         
  416.        :ENDNOTES1
  417.            #STRING#=#02#=#NEWLINE#
  418.            #TAKECOMMENTS#=#02#
  419.  
  420.        :ENDNOTES
  421.     #STARTREADWEB#
  422. // Quotes
  423.     #FINDLINE#=>Quotes<#12##ONERROR#=*OK*
  424.     #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  425.     #PUT#=</td></tr>#13#
  426.     #PUT#=10#14#
  427.     #PUT#=0#09#
  428.     #READNEXTLINE#
  429.     #READNEXTLINE#
  430.     #TAKEWORDLEN#=#15#,#09#,#14#
  431.     #IF# #15# == #13#
  432.         #GOTO#=ENDQUOTES
  433.     #ENDIF#
  434.     #IF# #15# <> #13#
  435.         #STARTREADWEB#
  436.         #FINDLINE#=>Quotes<#12##ONERROR#=*OK*
  437.         #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  438.     #ENDIF#
  439.  
  440.     #STRING#=#02#=Quotes: #NEWLINE#----------------------------------#NEWLINE#
  441.     #TAKECOMMENTS#=#02#
  442.  
  443.        :REPEATQUOTES
  444.            #READNEXTLINE#
  445.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  446.            #IF# #10#<>#09#
  447.                #GOTO#=ENDQUOTES1
  448.            #ENDIF#
  449.            #TAKEWORD#=#01#,#09#,#09#
  450.            #CHECKVARIABLE#=#01#
  451.            #CLEARTAGS#
  452.            #STARTSUBSTITUTETAGS#
  453.            #STARTDELETETAGS#
  454.            #STRING#=#02#=#01# #NEWLINE#
  455.            #TAKECOMMENTS#=#02#
  456.        #GOTO#=REPEATQUOTES
  457.        :ENDQUOTES1
  458.            #STRING#=#02#=#NEWLINE#
  459.            #TAKECOMMENTS#=#02#
  460.        :ENDQUOTES
  461.     #STARTREADWEB#
  462. //Analysis
  463.     #FINDLINE#=>Analysis<#12##ONERROR#=*OK*
  464.     #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  465.     #PUT#=</td></tr>#13#
  466.     #PUT#=10#14#
  467.     #PUT#=0#09#
  468.     #READNEXTLINE#
  469.     #READNEXTLINE#
  470.     #TAKEWORDLEN#=#15#,#09#,#14#
  471.     #IF# #15# == #13#
  472.         #GOTO#=ENDANALYSIS
  473.     #ENDIF#
  474.     #IF# #15# <> #13#
  475.         #STARTREADWEB#
  476.         #FINDLINE#=>Analysis<#12##ONERROR#=*OK*
  477.         #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  478.     #ENDIF#
  479.     #STRING#=#02#=Analysis: #NEWLINE#----------------------------------#NEWLINE#
  480.     #TAKECOMMENTS#=#02#
  481.        :REPEATANALYSIS
  482.            #READNEXTLINE#
  483.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  484.            #IF# #10#<>#09#
  485.                #GOTO#=ENDANALYSIS1
  486.            #ENDIF#
  487.            #TAKEWORD#=#01#,#09#,#09#
  488.            #CHECKVARIABLE#=#01#
  489.            #STARTSUBSTITUTETAGS#
  490.            #CLEARTAGS#
  491.            #STARTDELETETAGS#
  492.            #TAKECOMMENTS#=#01#
  493.        #GOTO#=REPEATANALYSIS
  494.        :ENDANALYSIS1        
  495.            #STRING#=#02#=#NEWLINE#
  496.            #TAKECOMMENTS#=#02#
  497.        :ENDANALYSIS
  498.  
  499.  
  500.     #STARTREADWEB#
  501. //Goofs and Nitpicks
  502.     #FINDLINE#=>Goofs<#12##ONERROR#=*OK*
  503.     #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  504.     #PUT#=</td></tr>#13#
  505.     #PUT#=10#14#
  506.     #PUT#=0#09#
  507.     #READNEXTLINE#
  508.     #READNEXTLINE#
  509.     #TAKEWORDLEN#=#15#,#09#,#14#
  510.     #IF# #15# == #13#
  511.         #GOTO#=ENDGOOFS
  512.     #ENDIF#
  513.     #IF# #15# <> #13#
  514.         #STARTREADWEB#
  515.         #FINDLINE#=>Goofs<#12##ONERROR#=*OK*
  516.         #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  517.     #ENDIF#
  518.     #STRING#=#02#=Goofs: #NEWLINE#----------------------------------#NEWLINE#
  519.     #TAKECOMMENTS#=#02#
  520.  
  521.        :REPEATGOOFS
  522.            #READNEXTLINE#
  523.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  524.            #IF# #10#<>#09#
  525.                #GOTO#=ENDGOOFS1
  526.            #ENDIF#
  527.            #TAKEWORD#=#01#,#09#,#09#
  528.            #CHECKVARIABLE#=#01#
  529.            #STARTSUBSTITUTETAGS#
  530.            #CLEARTAGS#
  531.            #STARTDELETETAGS#
  532.            #STRING#=#02#=#01# #NEWLINE#
  533.            #TAKECOMMENTS#=#02#
  534.        #GOTO#=REPEATGOOFS
  535.        :ENDGOOFS1       
  536.            #STRING#=#02#=#NEWLINE#
  537.            #TAKECOMMENTS#=#02#
  538.        :ENDGOOFS
  539.     #STARTREADWEB#
  540. //Cultural References
  541.     #FINDLINE#=>Cultural References<#12##ONERROR#=*OK*
  542.     #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  543.     #PUT#=</td></tr>#13#
  544.     #PUT#=10#14#
  545.     #PUT#=0#09#
  546.     #READNEXTLINE#
  547.     #READNEXTLINE#
  548.     #TAKEWORDLEN#=#15#,#09#,#14#
  549.     #IF# #15# == #13#
  550.         #GOTO#=ENDCULTREFS
  551.     #ENDIF#
  552.     #IF# #15# <> #13#
  553.         #STARTREADWEB#
  554.         #FINDLINE#=>Cultural References<#12##ONERROR#=*OK*
  555.         #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  556.     #ENDIF#
  557.  
  558.     #STRING#=#02#=Cultural References: #NEWLINE#----------------------------------#NEWLINE#
  559.     #TAKECOMMENTS#=#02# 
  560.     #PUT#=0#09#
  561.        :REPEATCULTREFS
  562.            #READNEXTLINE#
  563.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  564.            #IF# #10#<>#09#
  565.                #GOTO#=ENDCULTREFS
  566.            #ENDIF#
  567.            #TAKEWORD#=#01#,#09#,#09#
  568.            #CHECKVARIABLE#=#01#
  569.            #STARTSUBSTITUTETAGS#
  570.            #CLEARTAGS#
  571.            #STARTDELETETAGS#
  572.            #STRING#=#02#=#01# #NEWLINE#
  573.            #TAKECOMMENTS#=#02#
  574.          #GOTO#=REPEATCULTREFS
  575.        :ENDCULTREFS
  576.  
  577. #ENDCOMMENTS#
  578.  
  579. #PLOT#
  580.     #STARTREADWEB#
  581.     #FINDLINE#=>Synopsis<#12##ONERROR#=*OK*
  582.     #FINDLINE#=<tr><td>#12##ONERROR#=*OK*
  583.     #PUT#=0#09#
  584.     #READNEXTLINE#
  585.        :REPEATPLOT
  586.            #READNEXTLINE#
  587.            #FIND#=</td></tr>#10# #ONERROR#=*OK*
  588.            #IF# #10#<>#09#
  589.                #GOTO#=ENDPLOT
  590.            #ENDIF#
  591.            #TAKEWORD#=#01#,#09#,#09#
  592.            #CHECKVARIABLE#=#01#
  593.            #CLEARTAGS#
  594.            #STARTSUBSTITUTETAGS#
  595.            #STARTDELETETAGS#
  596.            #STRING#=#02#=#01# #NEWLINE#
  597.            #TAKEPLOT#=#02#
  598.          #GOTO#=REPEATPLOT
  599.        :ENDPLOT
  600. #ENDPLOT#
  601.  
  602. #RUNTIME#
  603.     #TAKERUNTIME#=#44#
  604. #ENDRUNTIME#
  605.  
  606. #YEAR#
  607.        //YEAR (First Aired)
  608.        #STARTREADWEB#
  609.        #FINDLINE#=First Aired</td>#12##ONERROR#=*OK*
  610.        #FIND#=First Aired</td>#01#
  611.        #FIND#=class="row1">#01#
  612.        #FIND#=>#01#
  613.        #FIND#=<#02#
  614.        #TAKEWORD#=#46#,#01#,#02#
  615.        #CHECKVARIABLE#=#46#
  616.        #STARTSUBSTITUTETAGS#
  617.        #CLEARTAGS#
  618.        #STARTDELETETAGS#
  619.        #TAKEYEAR#=#46#
  620. #ENDYEAR#
  621.  
  622.  
  623. #COUNTRY#
  624.     #TAKECOUNTRY#=#45#
  625. #ENDCOUNTRY#
  626.  
  627. #WRITER#
  628.        #STARTREADWEB#
  629.        #FINDLINE#=Writer</td>#12##ONERROR#=*STOP*
  630.        #PUT#=0#09#
  631.        :REPEATWRITER
  632.            #FIND#=a href="#10# #ONERROR#=*OK*
  633.            #IF# #10#==#09#
  634.                #GOTO#=ENDWRITER
  635.            #ENDIF#
  636.            #FIND#=>#01#
  637.            #FIND#=<#02#
  638.            #TAKEWORD#=#03#,#01#,#02#
  639.            #CHECKVARIABLE#=#03#
  640.            #STARTSUBSTITUTETAGS#
  641.            #CLEARTAGS#
  642.            #STARTDELETETAGS#
  643.            #TAKEWRITER#=#03#
  644.          #GOTO#=REPEATWRITER
  645.        :ENDWRITER
  646.     
  647. #ENDWRITER#
  648.  
  649. #DIRECTOR#
  650.        #STARTREADWEB#
  651.        #FINDLINE#=Director</td>#12##ONERROR#=*STOP*
  652.        #PUT#=0#09#
  653.        :REPEATDIRECTOR
  654.            #FIND#=a href="#10# #ONERROR#=*OK*
  655.            #IF# #10#==#09#
  656.                #GOTO#=ENDDIRECTOR
  657.            #ENDIF#
  658.            #FIND#=>#01#
  659.            #FIND#=<#02#
  660.            #TAKEWORD#=#03#,#01#,#02#
  661.            #CHECKVARIABLE#=#03#
  662.            #STARTSUBSTITUTETAGS#
  663.            #CLEARTAGS#
  664.            #STARTDELETETAGS#
  665.            #TAKEDIRECTOR#=#03#
  666.          #GOTO#=REPEATDIRECTOR
  667.        :ENDDIRECTOR
  668.     
  669. #ENDDIRECTOR#
  670.  
  671. #RATING#
  672.        #STARTREADWEB#
  673.        #FINDLINE#=Avg. Rating:</td>#12##ONERROR#=*OK*
  674.        #FIND#=<td>#01#
  675.        #FIND#=>#01#
  676.        #FIND#=<#02#
  677.        #TAKEWORD#=#03#,#01#,#02#
  678.        #CHECKVARIABLE#=#03#
  679.        #STARTSUBSTITUTETAGS#
  680.        #CLEARTAGS#
  681.        #STARTDELETETAGS#
  682.        #TAKERATING#=#03#
  683. #ENDRATING#
  684.  
  685. #MOVIEID#
  686. //Episode Number
  687.        #STARTREADWEB#
  688.        #FINDLINE#=Episode Number</td>#12##ONERROR#=*OK*
  689.        #FIND#=Episode Number</td>#01#
  690.        #FIND#=class="row2"#01#
  691.        #FIND#=>#01#
  692.        #FIND#=<#02#
  693.        #TAKEWORD#=#03#,#01#,#02#
  694.        #CHECKVARIABLE#=#03#
  695.        #STARTSUBSTITUTETAGS#
  696.        #CLEARTAGS#
  697.        #STARTDELETETAGS#
  698.        #TAKEMOVIEID#=#03#
  699. #ENDMOVIEID#
  700.  
  701. #DELETETAGS#
  702.     #DELETEWORD#= 
  703.     #DELETEWORD#=<BR>
  704.     #DELETEWORD#=</BR>
  705.     #DELETEWORD#=<br>
  706.     #DELETEWORD#=</br>
  707.     #DELETEWORD#=</P>
  708.     #DELETEWORD#=</B>
  709.     #DELETEWORD#=<B>
  710.     #DELETEWORD#=</b>
  711.     #DELETEWORD#=<b>
  712.     #DELETEWORD#=</BLOCKQUOTE>
  713.     #DELETEWORD#=<br />
  714.     #DELETEWORD#=</b>
  715.     #DELETEWORD#=br />
  716.     #DELETEWORD#=<b
  717.     #DELETEWORD#=b>
  718. #ENDDELETETAGS#
  719.  
  720. #SUBSTITUTETAGS#
  721.     #SUBSTITUTEWORD#= = 
  722.     #SUBSTITUTEWORD#=¡=í
  723.     #SUBSTITUTEWORD#=¢=ó
  724.     #SUBSTITUTEWORD#=£=ú
  725.     #SUBSTITUTEWORD#=¤=ñ
  726.     #SUBSTITUTEWORD#=¥=Ñ
  727.     #SUBSTITUTEWORD#=¦=ª
  728.     #SUBSTITUTEWORD#=§=º
  729.     #SUBSTITUTEWORD#=¨=¿
  730.     #SUBSTITUTEWORD#=©=⌐
  731.     #SUBSTITUTEWORD#=ª=¬
  732.     #SUBSTITUTEWORD#=«=½
  733.     #SUBSTITUTEWORD#=¬=¼
  734.     #SUBSTITUTEWORD#=­=¡
  735.     #SUBSTITUTEWORD#=®=«
  736.     #SUBSTITUTEWORD#=¯=»
  737.     #SUBSTITUTEWORD#=°=░
  738.     #SUBSTITUTEWORD#=±=▒
  739.     #SUBSTITUTEWORD#=²=▓
  740.     #SUBSTITUTEWORD#=³=│
  741.     #SUBSTITUTEWORD#=´=┤
  742.     #SUBSTITUTEWORD#=µ=╡
  743.     #SUBSTITUTEWORD#=¶=╢
  744.     #SUBSTITUTEWORD#=·=╖
  745.     #SUBSTITUTEWORD#=¸=╕
  746.     #SUBSTITUTEWORD#=¹=╣
  747.     #SUBSTITUTEWORD#=º=║
  748.     #SUBSTITUTEWORD#=»=╗
  749.     #SUBSTITUTEWORD#=¼=╝
  750.     #SUBSTITUTEWORD#=½=╜
  751.     #SUBSTITUTEWORD#=¾=╛
  752.     #SUBSTITUTEWORD#=¿=┐
  753.     #SUBSTITUTEWORD#=À=└
  754.     #SUBSTITUTEWORD#=Á=┴
  755.     #SUBSTITUTEWORD#=Â=┬
  756.     #SUBSTITUTEWORD#=Ã=├
  757.     #SUBSTITUTEWORD#=Ä=─
  758.     #SUBSTITUTEWORD#=Å=┼
  759.     #SUBSTITUTEWORD#=Æ=╞
  760.     #SUBSTITUTEWORD#=Ç=╟
  761.     #SUBSTITUTEWORD#=È=╚
  762.     #SUBSTITUTEWORD#=É=╔
  763.     #SUBSTITUTEWORD#=Ê=╩
  764.     #SUBSTITUTEWORD#=Ë=╦
  765.     #SUBSTITUTEWORD#=Ì=╠
  766.     #SUBSTITUTEWORD#=Í=═
  767.     #SUBSTITUTEWORD#=Î=╬
  768.     #SUBSTITUTEWORD#=Ï=╧
  769.     #SUBSTITUTEWORD#=Ð=╨
  770.     #SUBSTITUTEWORD#=Ñ=╤
  771.     #SUBSTITUTEWORD#=Ò=╥
  772.     #SUBSTITUTEWORD#=Ó=╙
  773.     #SUBSTITUTEWORD#=Ô=╘
  774.     #SUBSTITUTEWORD#=Õ=╒
  775.     #SUBSTITUTEWORD#=Ö=╓
  776.     #SUBSTITUTEWORD#=×=╫
  777.     #SUBSTITUTEWORD#=Ø=╪
  778.     #SUBSTITUTEWORD#=Ù=┘
  779.     #SUBSTITUTEWORD#=Ú=┌
  780.     #SUBSTITUTEWORD#=Û=█
  781.     #SUBSTITUTEWORD#=Ü=▄
  782.     #SUBSTITUTEWORD#=Ý=▌
  783.     #SUBSTITUTEWORD#=Þ=▐
  784.     #SUBSTITUTEWORD#=ß=▀
  785.     #SUBSTITUTEWORD#=à=α
  786.     #SUBSTITUTEWORD#=á=ß
  787.     #SUBSTITUTEWORD#=â=Γ
  788.     #SUBSTITUTEWORD#=ã=π
  789.     #SUBSTITUTEWORD#=ä=Σ
  790.     #SUBSTITUTEWORD#=å=σ
  791.     #SUBSTITUTEWORD#=æ=µ
  792.     #SUBSTITUTEWORD#=ç=τ
  793.     #SUBSTITUTEWORD#=è=Φ
  794.     #SUBSTITUTEWORD#=é=Θ
  795.     #SUBSTITUTEWORD#=ê=Ω
  796.     #SUBSTITUTEWORD#=ë=δ
  797.     #SUBSTITUTEWORD#=ì=∞
  798.     #SUBSTITUTEWORD#=í=φ
  799.     #SUBSTITUTEWORD#=î=ε
  800.     #SUBSTITUTEWORD#=ï=∩
  801.     #SUBSTITUTEWORD#=ð=≡
  802.     #SUBSTITUTEWORD#=ñ=±
  803.     #SUBSTITUTEWORD#=ò=≥
  804.     #SUBSTITUTEWORD#=ó=≤
  805.     #SUBSTITUTEWORD#=ô=⌠
  806.     #SUBSTITUTEWORD#=õ=⌡
  807.     #SUBSTITUTEWORD#=ö=÷
  808.     #SUBSTITUTEWORD#=÷=≈
  809.     #SUBSTITUTEWORD#=ø=°
  810.     #SUBSTITUTEWORD#=ù=∙
  811.     #SUBSTITUTEWORD#=ú=·
  812.     #SUBSTITUTEWORD#=û=√
  813.     #SUBSTITUTEWORD#=ü=ⁿ
  814.     #SUBSTITUTEWORD#=ý=²
  815.     #SUBSTITUTEWORD#=þ=■
  816.     #SUBSTITUTEWORD#=ÿ= 
  817.     #SUBSTITUTEWORD#=<li>=╖
  818.     #SUBSTITUTEWORD#=<ul>=        
  819. #ENDSUBSTITUTETAGS#
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837.  
  838.  
  839.  
  840.  
  841.  
  842.  
  843.  
  844.  
  845.  
  846.  
  847.  
  848.  
  849.  
  850.  
  851.  
  852.  
  853.  
  854.  
  855.  
  856.  
  857.  
  858.  
  859.  
  860.  
  861.  
  862.  
  863.  
  864.  
  865.  
  866.  
  867.  
  868.  
  869.  
  870.  
  871.  
  872.  
  873.  
  874.  
  875.  
  876.  
  877.  
  878.  
  879.  
  880.  
  881.  
  882.  
  883.  
  884.  
  885.  
  886.  
  887.  
  888.  
  889.  
  890.  
  891.  
  892.  
  893.  
  894.  
  895.  
  896.  
  897.  
  898.  
  899.  
  900.  
  901.  
  902.  
  903.  
  904.  
  905.  
  906.  
  907.  
  908.  
  909.  
  910.  
  911.  
  912.  
  913.  
  914.  
  915.  
  916.  
  917.  
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.  
  932.  
  933.  
  934.  
  935.  
  936.  
  937.  
  938.  
  939.  
  940.  
  941.  
  942.  
  943.  
  944.  
  945.  
  946.  
  947.  
  948.  
  949.  
  950.  
  951.  
  952.  
  953.  
  954.  
  955.  
  956.  
  957.  
  958.  
  959.  
  960.  
  961.  
  962.  
  963.  
  964.  
  965.  
  966.  
  967.  
  968.